RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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18 Se 4 BY VAX=11 
Ve=Sep-1984 3:09:43 DLSKSVNGN 
MODULE parag ( wee *v04-000' 
LISS32C, ADDRESSING_MODE (EXTERNAL = long_relative 
NONEXTERNAL = long_ “relatives] 
BEGIN 


VRP R RRR REAR AEE ERE ERRATA RER RARER EERE ERE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ‘= AND gl Li 
He one Sven tes “ CE WITH THE TERMS OF SUCH Tet Fon” ND tg AL HE 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. aepokatitn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
oS 
+ 
® 
® 
® 
e 
* 

' 

'w TRANSFERRED. * 
® 
* 
® 
® 
* 
® 
® 
a 
* 

Lee RARER ARERR EERE AAA RARER AREA ETAT AAA EAE EREEES 

( 

lee 

} FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

' ABSTRACT: 


i] 

' 

! Processes .PARAGRAPH, .SET PARAGRAPH, .(NO)AUTOPARAGRAPH, 
; and .(NO)AUTOTABLE commands. 
' 

' 

' 

i 


i ENVIRONMENT: Transportable 
i AUTHOR: R.W. Friday CREATION DATE: June, 1978 


V4.0=742 Pa 
TER: CRUNOFF .SRCJPARAG.BLI; .. 
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v04-000 Revision History 122808-198e 03:8$:2 DISKSVMSMASTER: RUNOFF. SRCJPARAG.BLI:1> (2) 


3; $3 042 1 XSBTTL ‘Revision History' 

: 44 045 1! 

; 45 044 1 ! MODIFIED BY: 

: re 045 1! 

; § pe$ 71 004 KAD00004 | Keith Dawson 07-Mar-1983 

; 648 be 1! Global edit of all modules. Updated module names, idents, 
; 49 0048 copyright dates. Changed require files to BLISS library. 
: 54 0050 1 i-- 


sl Se SSS SSS SSS 
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19=300- 138% 91:86:3 VAX-11 Bliss-32 V4.0-742 3 
Module Level Declarations 14-Sep-1984 07:4 DISKSVMSMASTER: CRUNOFF .SRCJPARAG.BLI; P79 * (3), 
; 53 1 } XSBTTL "Module Level Declarations’ : 
é bel ° } . 
: 2? § ! TABLE OF CONTENTS: | ; 
3 28 Spee 1 ! INCLUDE FILES: 3 
; w B28 1! ; 
: 59 0057 1 3 
: 60 0058 1 LIBRARY ‘NXPORT: Berne ! XPORT Library p $ 
; 2 st 94 ! REQUIRE "REQ:RNODEF' ! RUNOFF variant definitions ° 
3 8 U 0191 1 XIF DSRPLUS XTHEN : 
: ee U O36 : vow *REQ:DPLLIB'; ! DSRPLUS BLISS Library : 
; 666 0194 1 LIBRARY 'REQ:DSRLIB'; ! DSR BLISS Library 3 
s° oF 0195 1 XFI : 
; & 0196 1 3 
; & 0197 1! 3 
; 70 0198 1: EXTERNAL REFERENCES: . 
“ee 0199 1! F 
ee 0200 1 EXTERNAL : 
3 7 os 1 ca : 958. definition, ; 
; 0 8 1 ra : fixed 5S tring. 3 
RRPE e . 0203 1 nmi st number_lis : 
: % 0204 1 pdt ref pdt definition, ; 
TY ¢ g 0205 1 sca : sca_definition; : 
; 0206 1 : 
: 679 0207 1 EXTERNAL LITERAL : 
; 0208 1 rnfinm: ! Error messages : 
; #8) 0209 1 : 
3 82 6519 1 EXTERNAL ROUTINE : 
eS 0211 1 rma, g 
; Bst¢ 1 gcpos, : 
; @5 0215 1 gcskip, : 
; 0214 1 glnm, : 
; 67 0215 1 gtpc 3 
s 88 0216 1 outn : 
; 0217 #1 rskips; : 


v04-000 Routine PARAG 


XSBTTL ‘Routine PARAG' 
GLOBAL ROUTINE parag (ha 


'¢ 


'e¢ 

FUNCTIONAL DESCRIPTION 
See the ABSTRACT 

FORMAL PARAMETERS: 


WW 
pee elelololeoleleleloloto) 


WO Oo~ 


Spncior_sote - i 


IMPLICIT INPUTS: 
IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
! COMPLETION CODES: 


SIDE EFFECTS: 


mrrorororopornororororfrororororororonr 
WAIN AWAAWIWInonororernonofpeofnonen 


BEGIN 
SELECTONE .handler_c 
SET 


' 
: An autoparagra 


{-1] : 
BEGIN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
; 
; gutnj 0; 


Sel Dek tek tal Dal al el el el ek 


This dupli 
rskips (ira) 
Always do 
sca_indent = 


PEPE EE AWWA AAIADRINIPINIPININPINYINPDY 2 St" SO SS OO oO 
LES ISSS NO FUMIO OSNO NP WMO DR Ue A Roo Shou me 


Bee Be Oe Be Ge Be Be Be Oe Oe Be Ge Be Ge See Be Se Se Se Ge SH Se SH SH Se Se Se Se Se Ge Se Se Oe Ge Se Se SESH Se Se Se OH Oe Oe SH Se SHS SHS HSH ee Be we 
ee ee eee eee eee 

Ce ee ee www lololololololelolelolololololololo) 

PWR =O OONO UENO OOO NA UNE WN 8 ODNOAU EWN (OO DNAOU EWN | CO ODNAU SWI —O0OW 


PIRI PIMINIPNIMYNIMNIPINIPYNPIPINPIPYNIPININPIPININININY NP Poponofnyonyonopnofnry 


SN NNN AA AAA AAA AMMAN 


5 ! 

6 $ca_para_pnd 
r END? - 

9 Ch_autoparagraph 
0 " BEGIN ni 

1 gca_autopara 
5 i Disable .A 
4 ! 

5 pce suterebt 
§ ND; 


1Soseoct9Re 01:26:59 


ndler_code) : NOVALUE = 


. 
7 


» above. 


ndicates the command to be ‘sciatic 
= means set a pending paragraph. 


None 
None 


None 
None 


ode OF 


ph was detected by pus. 


i Skip all spaces and tabs to get to text on Line. 


cates handling done by old RUNOFFs. 
the indentation. 
-pdt_indent; 


: Pend the skipping only if this section is not empty. 


= NOT .sca_sect_empty; 


3 3 
= true; 
UTOTABLE. 
= false; 


ey 


Bliss-32 V4.0-742 


VAX=11 ss-3 -74 Pa 
ISKSVMSMASTER: CRUNOFF ..SRCJPARAG.BLI;1 
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v04-000 Routine PARAG 18-08-1382 04:88:28 DISKSVMSMASTER: CRUNOFF . SRCJPARAG.BLI:1>— (4) | 


Ch_no_autotable, h_no_autoparagr] : 
BEGIN 


Disable both .AUTOTABLE and .AUTOPARAGRAPH. 


gca_autopara = false; 
eta = false; 


~~ 
“ 


=O OOWNOA UNE WIN OOONOA UENO OONOAUE WN 0 ODNOAOUEWWR OO OONAUE WW OOONO 


Ch_autotable) : 
BEGIN 
gca_autotabl = true; 
i Disable .AUTOPARAGRAPH. 
gca_autopara = false; 
ND; 


Ch_paragraph, h_set_paragraph] : 
BEGIN . 


Get parameters. 

glnm (3); 

INCR I FROM 1 TO .nmlst_count DO 
ES toaeaal (.i) EQL nm_bad 


Ignore entire command if a single argument is bad. 
RETURN; 

IF_.nmlst_count GTR 0 

THEN | 


0909 09 09 09 09 SI NINN SIN NN SSAA A PAA AAA AMINE & 


000MM 


: User supplied at least one parameter. 
BEGIN 


Use first argument as paragraph indentation, 
if it was supplied. 

iF gnmistdescr (1) NEQ nm_null 
pdt_indent = .nmlst_value (1); 
IF_.nmlst_count GTR 1 

THEN 


ee ee a me a ed ed ed td od 


S38eN 


if grist soeee (2) NEQ nm_null 
pdt_skip = .nmlst_value (2); 


Fe To ce | ame | | ee |e | we we | wee ee | ew eee ee ee ww wow ool el ole ole olol elo olelelolololelolelololololololo) 


AAA AIAI AANA AINA AAW WINN AIA AAAI NWIWInononononononononons 
Catanonoronorononononono—— tt St | M@QOODOCOOOSOSCCOOCOOOO OO OWDWODWOMOMMMMmoD~T~ 


PPP PEEP EEE EE EE PANNA NAAN ANA AAAI AIP NWI wwnonony 


rMororororn— 
oooo 


wr 


Validate "paragraph test page’ parameter. 


pdt_tp = .temp 
ELSE | 


erma (rnfinm, false); 


4 | 
1S-se 1984 01:26:3 VAX=11 Bliss-32 V4.0-742 Page 6. 
v04-000 Routine PARAG 12288-1382 03:69:23 DISKSVMSMASTER: CRUNOFF . SRCJPARAG.BLI:1> (4) | 
05 4 IF_.nmlst_count EQL 3 
oS THEN 
08 IF_.nmlst_descr (3) NEQ nm_null 
¢ 0 THEN | 
11 6 IF_.nmmlst descr (3) EQL nm_unsigned 
1g 8 t THEN | 
14 034 ' If 3rd argument is unsigned, that is | 
1? 034 the test page value. 
19 034 pdt_tp = .nmlst_value (3) | 
18 Oat ELSE 
19 034 | 
20 034 ! Validate 3rd argument if it is signed. 
21 034 : 
$$ 34 BEGIN 
2 $2 
24 5 LOCAL 
25 35 temp; | 
26 35 ' f 
44 $2 Try out adjustment to current test page value. 
$3 $2 temp = .pdt_tp + .nmlst_value (3); | 
31 35 IF .temp GEQ 0 | 
32 35 THEN 
33 36 ! ; . 
34 36 ' Save valid adjusted test page setting. 
35 36 : 
36 36 
36 
36 
36 
36 
36 
36 


} 
Invalid test page specification. 


END; 
END; ! End of parameter processing 
IF .handler_code EQL h_set_paragraph 
RETURN; 


i] 

i Force out the vertical motion so that change bars don't get 
: carried back too far. 

outnj Q; 

sca ndent = .pdt_indent; 


OM FSWN—OOONOUSWN-OOOnN 


Pend the skipping only if this section is not empty. 


PAA AAI BB BEE EEE EA 


$ca_para_pnd = NOT .sca_sect_empty; 


Be Be Be Be Se Se Se Se Oe Se Se Se Se Se Se Ge FH Ge Be Ge Se Ge SH Se Se Se Ge Ge Ge Se Se Se BH Sse SF Ss Se OH Os Se Oe Oe Ss Se Ss Oe OHHH Oe OHS Os BH ee Be ae 
POPIPIPIPPONNIPDPNINININMINININININYININININININININININO NINO PIPINOPONPONOPNoNoNoforounopnonofnony 

CNAME WN SO OD NOU EWN $0 OD NOAM EWN | CO ODNOU EWN OOO NOAU EW" OOONOUL WPT 
WANA AANA NWS BF WMI EB BBB RRP ERP PPPS 


fe Fa ae ne ene ne ee ee i i nw eee lolol olololololololololololo) 
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Routine PARAG 12-808-1 382 04: 88:2 DISKSVMSMASTER: CRUNOFF., SRCIJPARAG.BLI; a (4) | 


; £6 0389 END; 
3 6 8 90 
: 264 91 TES; 
3 65 039 
: 266 0393 1 END; ! End of PARAG 
.TITLE PARAG 
“IDENT \V04=000\ | 
.EXTRN GCA, IRA, NMLST | 
-EXTRN PDT. SCA, RNFINM | 
SEXTRN ERMA, Gcbos GCSKIP 
-EXTRN GLNM, GTPC, OUTNJ 
“EXTRN RSKIPS 
«PSECT $CODE$,NOWRT,2 
OOFC 00000 .ENTRY PARAG, Save R2.R3,R4,R5,R6,R7 : 0219° 
57 000000006 EF 9E 00002 MOVAB OUTNJ, R7 : 
56 000000006 EF 9 00009 MOVAB SCA+220, R6 : 
55 000000006 EF 9E 00010 MOVAB PDT, RS : 
54 000000006 EF 9€E 00017 MOVAB GCA Ass. ; 
53 000000006 EF 9E 00018 MOVAB NMLST i154 R3 ; 
52 04 AC 00 0002 MOVL § HANDLER_CODE, R2 > 0243 
FFFFFFEF © 8F 3¢ D1 0009 CMPL =e 2, #1 : 0248 
13 12 00030 BNEQ  1$ : 
67 00 FB 00032 CALLS #0, OUTNJ : 0250 
000000006 EF 9F 0003 PUSHAB IRA : 0255 | 
000000006 EF 01 FB 0003 CALLS #1, RSKIPS : 
00C5 31 0004 BRW 15§ : 0259 
03 52 D1 00045 1$: CMPL = R2, #3 > 0266 
06 12 00048 BNEQ $ ; 
00 B4 01 D0 0004A MOVL #1, aGCA+4 > 0268 
15 11 0004E BRB : Ogre 
00000074 =F 52 D1 00050 2s: CMPL R2, #116 : 027 
09 13 00057 BEQL ; 
00000076 =F 32 D1 00059 CMPL 2, #118 : 
07 12 00060 BNEG 5$ : 
00 B4 D4 00062 3$: CLRL  aGCA+4 : 0280 
08 B4 04 00065 4$: CLRL aGCA+12 : 0281 
04 00068 RET : Oo4s 
05 52 D1 00069 5$: CMPL =e 2, _ #5 > 0284 
08 if 9006¢ BNEQ ; 
08 B4 1 00 00 6 MOVL #1, @GCA+12 : 0286 
00 B4 D4 000 CLRL aGCar4 : 0290 
4 0007 RET ; 0243 
QOO000AA = BF 52 01 9076 6$: CMPL  R2, #170 : 0293 
0A 13 00070 BEQL «= 7 ; 
00000089 8F 52 D1 O007F CMPL Re. #185 ; 
as : 
000000006 EF OF be 0086 he ne. ot eu : 0298 | 
gf F4 a 50 9 MOVL NMLST, R1 : 0300 | 
3 04 096 CLRL i : | 
8 11 0009 BRB $ : | 


PARA 
v04-000 Routine PARAG 


; Routine Size: 276 bytes, Routine Base: $CODE$S + 0000 


267 0394 
268 0395 1 END 
269 0396 0 ELUDOM 


; PSECT SUMMARY 
: Name Bytes 
: 276 NOVEC,NOWRT, 


04 0094 ¢340 D 
ee 
F4 50 ; Ff 
1 0 
4 | 
0098 o3 D 
1 
00 8685 FB AS D 
01 51 Di 
of 1 
oo9c )§6=6h C3 sO 
98 1 
50 65 0D 
04 A FC AS 00 
0 3] D1 
:. 
51 QOAO ¢3 D 
2A 
50 65 00 
01 51 D1 
06 12 
08 A0 63 00 
if 11 
51 08 A0 63 C1 
06 19 
08 Ad 51 D0 
OF 11 
7E D4 
000000006 8F DD 
00000000G_ EF 9 FB 
00000089 F D1 
0c 13 
67 00 FB 
66 00 85 00 
04 A6 D8 = Ab Be 


RD , 


sa 


DISKSVMSMASTER: 
CMPL wa, ST#160013. ay 


EQL 

AOBLEQ Ri, I, 8$ 
TST R1 

LE 14$ 

STL NMLST+164 
BEQL 
MOVL §-NMLST#+4, @PDT 
CMPL sR, #1 
BLEG 1 

TSTL NL ST#168 
BEQL ss 11 
MOVL PDT Rd 
MOVL NMLST+8, 4(RO) 
CMPL = R1, #3 
BNEQ 148 

MOVL § NMLST+172, R1 
BEQL 14$ 

MOVL PDT, RO 

CMPL =I, #1 

BNEQ 128 

MOVL NMLST+12, 8(RO) 
BRB 14 

ADDL3 NMLST+12, 8(RO), TEMP 
BLSS 13 

MOVL TEMP, 8(RO) 
BRB 14$ 

CLRL  =(SP) 

PUSHL #RNFINM 

R 
1 


#0, OUTNJ 
MOVL aPbT, SCA+220 
MCONL SCA+180, SCA+224 


End of module 


LCL, REL, CON,NOPIC,ALIGN(2) 
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Library Statistics 


; seauceme FyOO (Ss eoreres Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBIXPORT.L32; 1 9 252 0:00.1 

; RSET beste? SRCIDS Tah L32;1 1328 33 ; 86 $3395: 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PARAG/OBJ=0BJ$:PARAG MSRC$:PARAG/UPDATE=(ENH$:PARAG) 


; Size: 276 code + 0 data bytes 
; Run Time: 00:06.7 

: phe Time: O9:69-7 

: ft Lexemes/CPU-Min: 18982 


Used: 76 pages 


> Lines/CPU Min: 
: comme Ry mg Complete 


ENT CORPORATION 
ND PROPRIETARY 


P 


307 AH-BT13A-SE 


3 DI M 
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